home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / EARTHQUEST™ TOUR Demo / EARTHQUEST™ tour / EARTHQUEST™ tour / card_2103.txt < prev    next >
Text File  |  1990-08-03  |  23KB  |  1,157 lines
  1. -- card: 2103 from stack: in
  2. -- bmap block id: 2508
  3. -- flags: 4000
  4. -- background id: 7776
  5. -- name: Recording Studio
  6. ----- HyperTalk script -----
  7. Painting
  8. What we create
  9. Doi
  10. dan
  11.  
  12. on startRecording
  13.   global rec
  14.   --set the name of btn id 33 to "STOP RECORD"
  15.   put empty into cd fld scorez
  16.   put "Start New Song" into card field "sign"
  17. end startRecording
  18.  
  19. on test
  20.   repeat with x = 1 to the number of btns
  21.     if the style of btn x is "shadow" then
  22.       set the height of btn x to 17
  23.     end if
  24.   end repeat
  25. end test
  26.  
  27. on setit
  28.   global noteo
  29.   set the highlite of btn noteo to false
  30.   put the short name of the target into noteo
  31.   set the highlite of the target to true
  32. end setit
  33.  
  34. on closecard
  35.   global noteo
  36.   put noteo into cd fld holding
  37. end closecard
  38.  
  39. on opencard
  40.   global noteo
  41.   put cd fld holding into noteo
  42.   pass opencard
  43. end opencard
  44.  
  45. on showme icono
  46.   if icono is empty then put the short name of the target into icono
  47.   set the icon of btn picture to icono
  48. end showme
  49.  
  50. on mousedown
  51.   hide cd fld shouldbe
  52.   pass mousedown
  53. end mousedown
  54.  
  55. on playme notez
  56.   global noteo, displayo
  57.   if notez is empty then put noteo into notez
  58.   if displayo is "true" then put the short name of the target&¬ez into cd fld sign
  59.   put "play"&"e & the short name of the target& quote &¬ez after noteToPlay
  60.   --put noteToPlay
  61.   do noteToPlay
  62.   put "play"&"e & the short name of the target& quote &¬ez&return after cd fld scorez
  63.   wait until the sound is "done"
  64.   lock screen
  65.   put empty into cd fld sign
  66.   unlock screen with visual dissolve
  67. end playme
  68.  
  69. get the mouseloc
  70. put it into whereclicked
  71. put the short name of the Target into card field sign
  72. put the rect of the target into holding
  73. put (item 4 of holding-item 2 of holding)/6 into yvalue
  74. --a note
  75. put holding into arect
  76. add yvalue to item 4 of arect
  77. put arect
  78. --a note
  79. put holding into brect
  80. add 2*yvalue to item 4 of brect
  81.  
  82. --a note
  83. put holding into crect
  84. add 3*yvalue to item 4 of crect
  85. put "c" into notez
  86. --a note
  87. put holding into drect
  88. add 4*yvalue to item 4 of drect
  89. put "d" into notez
  90. --a note
  91. put holding into erect
  92. add 5*yvalue to item 4 of erect
  93. put "e" into notez
  94.  
  95. --a note
  96. put holding into frect
  97. add 6*yvalue to item 4 of frect
  98. put "f" into notez
  99. put whereclicked after msg
  100. if whereclicked is within arect then
  101.   put "A" after cd fld sign
  102.   put "play"&&The short name of the target&&"A" into thesound
  103.   play thesound
  104.   put arect after msg
  105. else if whereclicked is within arect then
  106.   put "B" after cd fld sign
  107.   put "play"&&The short name of the target&&"B" into thesound
  108.   play thesound
  109.   put brect after msg
  110. else if whereclicked is within arect then
  111.   put "C" after cd fld sign
  112.   put "play"&&The short name of the target&&"C" into thesound
  113.   play thesound
  114.   put crect after msg
  115. else if whereclicked is within arect then
  116.   put "D" after cd fld sign
  117.   put "play"&&The short name of the target&&"D" into thesound
  118.   play thesound
  119.   put drect after msg
  120. else if whereclicked is within arect then
  121.   put "E" after cd fld sign
  122.   put "play"&&The short name of the target&&"E" into thesound
  123.   play thesound
  124.   put erect after msg
  125. else if whereclicked is within arect then
  126.   put "F" after cd fld sign
  127.   put "play"&&The short name of the target&&"F" into thesound
  128.   play thesound
  129.   put frect after msg
  130. end if
  131.  
  132.  
  133. wait until the sound is "done"
  134. lock screen
  135. put empty into cd fld sign
  136. unlock screen with visual dissolve
  137.  
  138.  
  139. -- part 23 (button)
  140. -- low flags: 00
  141. -- high flags: 0000
  142. -- rect: left=89 top=182 right=194 bottom=127
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Acoustic Guitar
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   playme b
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 24 (button)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=88 top=168 right=180 bottom=116
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Acoustic Guitar
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   playme a
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 25 (button)
  178. -- low flags: 00
  179. -- high flags: 0000
  180. -- rect: left=88 top=156 right=168 bottom=118
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Acoustic Guitar
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   playme f
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 27 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=83 top=145 right=157 bottom=150
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Acoustic Guitar
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   playme e
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 29 (button)
  216. -- low flags: 00
  217. -- high flags: 0000
  218. -- rect: left=77 top=133 right=147 bottom=124
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Acoustic Guitar
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   playme d
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 30 (button)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=123 top=132 right=144 bottom=166
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Acoustic Guitar
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   playme d
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 31 (button)
  254. -- low flags: 00
  255. -- high flags: 0000
  256. -- rect: left=75 top=114 right=137 bottom=161
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Acoustic Guitar
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   playme c
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 33 (button)
  273. -- low flags: 00
  274. -- high flags: A004
  275. -- rect: left=299 top=259 right=279 bottom=403
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: NEW SONG
  284. ----- HyperTalk script -----
  285. on mouseUp
  286.   startRecording
  287.   set the hilite of me to false
  288. end mouseUp
  289.  
  290. if the short name of me is "NEW SONG" then
  291.   set the name of me to "RECORDING"
  292. else
  293.   set the name of me to "NEW SONG"
  294. end if
  295.  
  296.  
  297.  
  298. -- part 34 (button)
  299. -- low flags: 00
  300. -- high flags: A004
  301. -- rect: left=410 top=259 right=279 bottom=505
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: PLAYBACK
  310. ----- HyperTalk script -----
  311. on mouseUp
  312.   put "Playback" into card fld "sign"
  313.   Repeat with x = 1 to the number of lines in cd field scorez
  314.     do line x of cd field scorez
  315.     --showme (word 2 of cd field scorez)
  316.     -- put word 2 to (the number of words of line x of cd fld scorez) --of line x of cd field scorez into card fld sign
  317.     wait until the sound is "done"
  318.   end repeat
  319.   put empty into cd fld sign
  320.   set the hilite of me to false
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 35 (field)
  326. -- low flags: 80
  327. -- high flags: 0007
  328. -- rect: left=149 top=20 right=323 bottom=330
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 3
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: scorez
  337.  
  338.  
  339. -- part 80 (field)
  340. -- low flags: 01
  341. -- high flags: 0000
  342. -- rect: left=35 top=289 right=307 bottom=180
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 3
  347. -- text size: 10
  348. -- style flags: 2304
  349. -- line height: 13
  350. -- part name: sign
  351.  
  352.  
  353. -- part 81 (button)
  354. -- low flags: 00
  355. -- high flags: 0000
  356. -- rect: left=408 top=0 right=51 bottom=512
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: 
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   parent
  368. end mouseUp
  369.  
  370.  
  371.  
  372. -- part 82 (button)
  373. -- low flags: 00
  374. -- high flags: 8004
  375. -- rect: left=299 top=168 right=185 bottom=352
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 20
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: Bird
  384. ----- HyperTalk script -----
  385. on mouseUp
  386.   playme
  387.   showme
  388. end mouseUp
  389.  
  390.  
  391.  
  392. -- part 83 (button)
  393. -- low flags: 00
  394. -- high flags: 8004
  395. -- rect: left=357 top=222 right=239 bottom=410
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 1
  399. -- font id: 20
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: Frog
  404. ----- HyperTalk script -----
  405. on mouseUp
  406.   playme
  407.   showme
  408. end mouseUp
  409.  
  410.  
  411.  
  412. -- part 84 (button)
  413. -- low flags: 00
  414. -- high flags: 0000
  415. -- rect: left=116 top=174 right=186 bottom=153
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Acoustic Guitar
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   playme b
  427. end mouseUp
  428.  
  429.  
  430.  
  431. -- part 85 (button)
  432. -- low flags: 00
  433. -- high flags: 0000
  434. -- rect: left=115 top=163 right=175 bottom=143
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 1
  438. -- font id: 0
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: Acoustic Guitar
  443. ----- HyperTalk script -----
  444. on mouseUp
  445.   playme a
  446. end mouseUp
  447.  
  448.  
  449.  
  450. -- part 86 (button)
  451. -- low flags: 00
  452. -- high flags: 0000
  453. -- rect: left=117 top=153 right=165 bottom=144
  454. -- title width / last selected line: 0
  455. -- icon id / first selected line: 0 / 0
  456. -- text alignment: 1
  457. -- font id: 0
  458. -- text size: 12
  459. -- style flags: 0
  460. -- line height: 16
  461. -- part name: Acoustic Guitar
  462. ----- HyperTalk script -----
  463. on mouseUp
  464.   playme f
  465. end mouseUp
  466.  
  467.  
  468.  
  469. -- part 87 (button)
  470. -- low flags: 00
  471. -- high flags: 0000
  472. -- rect: left=152 top=115 right=177 bottom=210
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 1
  476. -- font id: 0
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: 
  481. ----- HyperTalk script -----
  482. on mouseUp
  483.   show cd field "shouldbe"
  484. end mouseUp
  485.  
  486.  
  487.  
  488. -- part 89 (button)
  489. -- low flags: 00
  490. -- high flags: 8004
  491. -- rect: left=357 top=204 right=221 bottom=410
  492. -- title width / last selected line: 0
  493. -- icon id / first selected line: 0 / 0
  494. -- text alignment: 1
  495. -- font id: 20
  496. -- text size: 12
  497. -- style flags: 0
  498. -- line height: 16
  499. -- part name: Geese
  500. ----- HyperTalk script -----
  501. on mouseUp
  502.   playme
  503.   showme
  504. end mouseUp
  505.  
  506.  
  507.  
  508. -- part 90 (button)
  509. -- low flags: 00
  510. -- high flags: 8004
  511. -- rect: left=357 top=186 right=203 bottom=410
  512. -- title width / last selected line: 0
  513. -- icon id / first selected line: 0 / 0
  514. -- text alignment: 1
  515. -- font id: 20
  516. -- text size: 12
  517. -- style flags: 0
  518. -- line height: 16
  519. -- part name: Thrush
  520. ----- HyperTalk script -----
  521. on mouseUp
  522.   playme
  523.   showme
  524. end mouseUp
  525.  
  526.  
  527.  
  528. -- part 91 (button)
  529. -- low flags: 00
  530. -- high flags: 0001
  531. -- rect: left=73 top=13 right=51 bottom=113
  532. -- title width / last selected line: 0
  533. -- icon id / first selected line: 12473 / 12473
  534. -- text alignment: 1
  535. -- font id: 0
  536. -- text size: 12
  537. -- style flags: 0
  538. -- line height: 16
  539. -- part name: 
  540. ----- HyperTalk script -----
  541. on mouseUp
  542.   exit mouseup
  543. end mouseUp
  544.  
  545.  
  546.  
  547. -- part 97 (button)
  548. -- low flags: 00
  549. -- high flags: 8004
  550. -- rect: left=299 top=222 right=239 bottom=352
  551. -- title width / last selected line: 0
  552. -- icon id / first selected line: 0 / 0
  553. -- text alignment: 1
  554. -- font id: 20
  555. -- text size: 12
  556. -- style flags: 0
  557. -- line height: 16
  558. -- part name: Dog
  559. ----- HyperTalk script -----
  560. on mouseUp
  561.   playme
  562.   showme
  563. end mouseUp
  564.  
  565.  
  566.  
  567. -- part 102 (button)
  568. -- low flags: 00
  569. -- high flags: 8004
  570. -- rect: left=299 top=204 right=221 bottom=352
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 1
  574. -- font id: 20
  575. -- text size: 12
  576. -- style flags: 0
  577. -- line height: 16
  578. -- part name: Hawk
  579. ----- HyperTalk script -----
  580. on mouseUp
  581.   playme
  582.   showme
  583. end mouseUp
  584.  
  585.  
  586.  
  587. -- part 103 (button)
  588. -- low flags: 00
  589. -- high flags: 8004
  590. -- rect: left=299 top=186 right=203 bottom=352
  591. -- title width / last selected line: 0
  592. -- icon id / first selected line: 0 / 0
  593. -- text alignment: 1
  594. -- font id: 20
  595. -- text size: 12
  596. -- style flags: 0
  597. -- line height: 16
  598. -- part name: Wind
  599. ----- HyperTalk script -----
  600. on mouseUp
  601.   playme
  602.   showme
  603. end mouseUp
  604.  
  605.  
  606.  
  607. -- part 104 (button)
  608. -- low flags: 00
  609. -- high flags: 8004
  610. -- rect: left=357 top=168 right=185 bottom=410
  611. -- title width / last selected line: 0
  612. -- icon id / first selected line: 0 / 0
  613. -- text alignment: 1
  614. -- font id: 20
  615. -- text size: 12
  616. -- style flags: 0
  617. -- line height: 16
  618. -- part name: Water
  619. ----- HyperTalk script -----
  620. on mouseUp
  621.   playme
  622.   showme
  623. end mouseUp
  624.  
  625.  
  626.  
  627. -- part 105 (button)
  628. -- low flags: 00
  629. -- high flags: 8004
  630. -- rect: left=415 top=168 right=185 bottom=468
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 0 / 0
  633. -- text alignment: 1
  634. -- font id: 20
  635. -- text size: 12
  636. -- style flags: 0
  637. -- line height: 16
  638. -- part name: Skillsaw
  639. ----- HyperTalk script -----
  640. on mouseUp
  641.   playme
  642.   showme
  643. end mouseUp
  644.  
  645.  
  646.  
  647. -- part 88 (field)
  648. -- low flags: 81
  649. -- high flags: 2004
  650. -- rect: left=254 top=109 right=185 bottom=464
  651. -- title width / last selected line: 0
  652. -- icon id / first selected line: 0 / 0
  653. -- text alignment: 1
  654. -- font id: 3
  655. -- text size: 12
  656. -- style flags: 256
  657. -- line height: 16
  658. -- part name: Shouldbe
  659.  
  660.  
  661. -- part 107 (button)
  662. -- low flags: 00
  663. -- high flags: 0000
  664. -- rect: left=232 top=212 right=233 bottom=260
  665. -- title width / last selected line: 0
  666. -- icon id / first selected line: 707 / 707
  667. -- text alignment: 1
  668. -- font id: 0
  669. -- text size: 12
  670. -- style flags: 0
  671. -- line height: 16
  672. -- part name: picture
  673. ----- HyperTalk script -----
  674. on mouseUp
  675.   set the icon of me to 0
  676. end mouseUp
  677.  
  678.  
  679.  
  680. -- part 110 (button)
  681. -- low flags: 00
  682. -- high flags: 0000
  683. -- rect: left=415 top=204 right=221 bottom=468
  684. -- title width / last selected line: 0
  685. -- icon id / first selected line: 0 / 0
  686. -- text alignment: 1
  687. -- font id: 20
  688. -- text size: 12
  689. -- style flags: 0
  690. -- line height: 16
  691. -- part name: Factory Whistle
  692. ----- HyperTalk script -----
  693. on mouseUp
  694.   playme
  695.   showme whistle
  696. end mouseUp
  697.  
  698.  
  699.  
  700. -- part 111 (button)
  701. -- low flags: 00
  702. -- high flags: 8004
  703. -- rect: left=415 top=222 right=239 bottom=468
  704. -- title width / last selected line: 0
  705. -- icon id / first selected line: 0 / 0
  706. -- text alignment: 1
  707. -- font id: 20
  708. -- text size: 12
  709. -- style flags: 0
  710. -- line height: 16
  711. -- part name: Spanish
  712. ----- HyperTalk script -----
  713. on mouseUp
  714.   playme
  715.   showme 25719
  716. end mouseUp
  717.  
  718.  
  719.  
  720. -- part 112 (button)
  721. -- low flags: 00
  722. -- high flags: 8000
  723. -- rect: left=479 top=162 right=176 bottom=500
  724. -- title width / last selected line: 0
  725. -- icon id / first selected line: 0 / 0
  726. -- text alignment: 1
  727. -- font id: 20
  728. -- text size: 12
  729. -- style flags: 256
  730. -- line height: 16
  731. -- part name: A3
  732. ----- HyperTalk script -----
  733. on mouseUp
  734.   setit
  735. end mouseUp
  736.  
  737.  
  738.  
  739. -- part 113 (button)
  740. -- low flags: 00
  741. -- high flags: 8000
  742. -- rect: left=480 top=177 right=191 bottom=499
  743. -- title width / last selected line: 0
  744. -- icon id / first selected line: 0 / 0
  745. -- text alignment: 1
  746. -- font id: 20
  747. -- text size: 12
  748. -- style flags: 256
  749. -- line height: 16
  750. -- part name: B3
  751. ----- HyperTalk script -----
  752. on mouseUp
  753.   setit
  754. end mouseUp
  755.  
  756.  
  757.  
  758. -- part 114 (button)
  759. -- low flags: 00
  760. -- high flags: 8000
  761. -- rect: left=480 top=191 right=203 bottom=494
  762. -- title width / last selected line: 0
  763. -- icon id / first selected line: 0 / 0
  764. -- text alignment: 1
  765. -- font id: 20
  766. -- text size: 12
  767. -- style flags: 256
  768. -- line height: 16
  769. -- part name: C
  770. ----- HyperTalk script -----
  771. on mouseUp
  772.   setit
  773. end mouseUp
  774.  
  775.  
  776.  
  777. -- part 115 (button)
  778. -- low flags: 00
  779. -- high flags: 8000
  780. -- rect: left=480 top=204 right=216 bottom=494
  781. -- title width / last selected line: 0
  782. -- icon id / first selected line: 0 / 0
  783. -- text alignment: 1
  784. -- font id: 20
  785. -- text size: 12
  786. -- style flags: 256
  787. -- line height: 16
  788. -- part name: D
  789. ----- HyperTalk script -----
  790. on mouseUp
  791.  
  792.   setit
  793.  
  794. end mouseUp
  795.  
  796.  
  797.  
  798. -- part 116 (button)
  799. -- low flags: 00
  800. -- high flags: 8000
  801. -- rect: left=480 top=217 right=229 bottom=494
  802. -- title width / last selected line: 0
  803. -- icon id / first selected line: 0 / 0
  804. -- text alignment: 1
  805. -- font id: 20
  806. -- text size: 12
  807. -- style flags: 256
  808. -- line height: 16
  809. -- part name: E
  810. ----- HyperTalk script -----
  811. on mouseUp
  812.   setit
  813. end mouseUp
  814.  
  815.  
  816.  
  817. -- part 117 (button)
  818. -- low flags: 00
  819. -- high flags: C000
  820. -- rect: left=480 top=230 right=242 bottom=494
  821. -- title width / last selected line: 0
  822. -- icon id / first selected line: 0 / 0
  823. -- text alignment: 1
  824. -- font id: 20
  825. -- text size: 12
  826. -- style flags: 256
  827. -- line height: 16
  828. -- part name: F
  829. ----- HyperTalk script -----
  830. on mouseUp
  831.   setit
  832. end mouseUp
  833.  
  834.  
  835.  
  836. -- part 119 (button)
  837. -- low flags: 00
  838. -- high flags: 8000
  839. -- rect: left=480 top=244 right=256 bottom=494
  840. -- title width / last selected line: 0
  841. -- icon id / first selected line: 0 / 0
  842. -- text alignment: 1
  843. -- font id: 20
  844. -- text size: 12
  845. -- style flags: 256
  846. -- line height: 16
  847. -- part name: G
  848. ----- HyperTalk script -----
  849. on mouseUp
  850.   setit
  851. end mouseUp
  852.  
  853.  
  854.  
  855. -- part 120 (field)
  856. -- low flags: 80
  857. -- high flags: 0000
  858. -- rect: left=11 top=7 right=46 bottom=49
  859. -- title width / last selected line: 0
  860. -- icon id / first selected line: 0 / 0
  861. -- text alignment: 0
  862. -- font id: 3
  863. -- text size: 12
  864. -- style flags: 0
  865. -- line height: 16
  866. -- part name: holding
  867.  
  868.  
  869. -- part 121 (button)
  870. -- low flags: 00
  871. -- high flags: 2000
  872. -- rect: left=9 top=285 right=304 bottom=30
  873. -- title width / last selected line: 0
  874. -- icon id / first selected line: 0 / 0
  875. -- text alignment: 1
  876. -- font id: 0
  877. -- text size: 12
  878. -- style flags: 0
  879. -- line height: 16
  880. -- part name: fieldswitch
  881. ----- HyperTalk script -----
  882. on mouseUp
  883.   global displayo
  884.   if displayo is "true" then
  885.     put "false" into displayo
  886.     put "Display Off" into card fld "sign"
  887.   else
  888.     put "true" into displayo
  889.     put "Display On" into card fld "sign"
  890.   end if
  891. end mouseUp
  892.  
  893.  
  894.  
  895. -- part 122 (button)
  896. -- low flags: 00
  897. -- high flags: 8004
  898. -- rect: left=299 top=240 right=257 bottom=352
  899. -- title width / last selected line: 0
  900. -- icon id / first selected line: 0 / 0
  901. -- text alignment: 1
  902. -- font id: 20
  903. -- text size: 12
  904. -- style flags: 0
  905. -- line height: 16
  906. -- part name: Cough
  907. ----- HyperTalk script -----
  908. on mouseUp
  909.   playme
  910.   showme
  911. end mouseUp
  912.  
  913.  
  914.  
  915. -- part 123 (button)
  916. -- low flags: 00
  917. -- high flags: 8004
  918. -- rect: left=357 top=240 right=257 bottom=410
  919. -- title width / last selected line: 0
  920. -- icon id / first selected line: 0 / 0
  921. -- text alignment: 1
  922. -- font id: 20
  923. -- text size: 12
  924. -- style flags: 0
  925. -- line height: 16
  926. -- part name: Click
  927. ----- HyperTalk script -----
  928. on mouseUp
  929.   playme
  930.   showme
  931. end mouseUp
  932.  
  933.  
  934.  
  935. -- part 124 (button)
  936. -- low flags: 00
  937. -- high flags: 0000
  938. -- rect: left=415 top=240 right=257 bottom=468
  939. -- title width / last selected line: 0
  940. -- icon id / first selected line: 0 / 0
  941. -- text alignment: 1
  942. -- font id: 20
  943. -- text size: 12
  944. -- style flags: 0
  945. -- line height: 16
  946. -- part name: full Orchestra
  947. ----- HyperTalk script -----
  948. on mouseUp
  949.   playme
  950.   showme orchestra
  951. end mouseUp
  952.  
  953.  
  954.  
  955. -- part 126 (button)
  956. -- low flags: 00
  957. -- high flags: 0000
  958. -- rect: left=415 top=186 right=203 bottom=468
  959. -- title width / last selected line: 0
  960. -- icon id / first selected line: 0 / 0
  961. -- text alignment: 1
  962. -- font id: 20
  963. -- text size: 12
  964. -- style flags: 0
  965. -- line height: 16
  966. -- part name: hammering
  967. ----- HyperTalk script -----
  968. on mouseUp
  969.   playme
  970.   showme 29612
  971. end mouseUp
  972.  
  973.  
  974.  
  975. -- part 127 (button)
  976. -- low flags: 00
  977. -- high flags: 0000
  978. -- rect: left=255 top=91 right=121 bottom=292
  979. -- title width / last selected line: 0
  980. -- icon id / first selected line: 0 / 0
  981. -- text alignment: 1
  982. -- font id: 0
  983. -- text size: 12
  984. -- style flags: 0
  985. -- line height: 16
  986. -- part name: full orchestra
  987. ----- HyperTalk script -----
  988. on mouseUp
  989.   visual iris open to inverse
  990.   go this card
  991.   playme
  992.   showme orchestra
  993. end mouseUp
  994.  
  995.  
  996.  
  997. -- part 128 (button)
  998. -- low flags: 00
  999. -- high flags: 0000
  1000. -- rect: left=215 top=261 right=277 bottom=238
  1001. -- title width / last selected line: 0
  1002. -- icon id / first selected line: 1835 / 1835
  1003. -- text alignment: 1
  1004. -- font id: 0
  1005. -- text size: 12
  1006. -- style flags: 0
  1007. -- line height: 16
  1008. -- part name: lefto
  1009. ----- HyperTalk script -----
  1010. on mouseUp
  1011.  
  1012. end mouseUp
  1013.  
  1014.  
  1015. 226,267
  1016.  
  1017. on mousestilldown
  1018.   set the bottom of me to the mousev+8
  1019.   if the top of me < 259 then set the top of me to 259
  1020.   if the bottom of me > 301 then set the bottom of me to 301
  1021. end mousestilldown
  1022.  
  1023.  
  1024. -- part 129 (button)
  1025. -- low flags: 00
  1026. -- high flags: 0000
  1027. -- rect: left=247 top=11 right=51 bottom=288
  1028. -- title width / last selected line: 0
  1029. -- icon id / first selected line: 2002 / 2002
  1030. -- text alignment: 1
  1031. -- font id: 0
  1032. -- text size: 12
  1033. -- style flags: 0
  1034. -- line height: 16
  1035. -- part name: billyboy
  1036. ----- HyperTalk script -----
  1037. on mouseUp
  1038.   set the loc of me to 267,31
  1039.   set the hilite of me to false
  1040. end mouseUp
  1041.  
  1042.  
  1043. 226,267
  1044.  
  1045. on mousestilldown
  1046.   set the loc of me to the mouseloc
  1047.   if the top of me > 11 then set the top of me to 11
  1048.   set the left of me to the mouseh
  1049.   set the hilite of me to not the hilite of me
  1050.   if the bottom of me >51 then set the bottom of me to 51
  1051. end mousestilldown
  1052.  
  1053. on mousestilldown
  1054.   set the bottom of me to the mousev+8
  1055.   if the top of me > 11 then set the top of me to 11
  1056.   set the hilite of me to not the hilite of me
  1057.   if the bottom of me >51 then set the bottom of me to 51
  1058. end mousestilldown
  1059.  
  1060.  
  1061. -- part 130 (button)
  1062. -- low flags: 00
  1063. -- high flags: 0000
  1064. -- rect: left=239 top=270 right=286 bottom=262
  1065. -- title width / last selected line: 0
  1066. -- icon id / first selected line: 1835 / 1835
  1067. -- text alignment: 1
  1068. -- font id: 0
  1069. -- text size: 12
  1070. -- style flags: 0
  1071. -- line height: 16
  1072. -- part name: lefto
  1073. ----- HyperTalk script -----
  1074. on mouseUp
  1075.  
  1076. end mouseUp
  1077.  
  1078.  
  1079. 226,267
  1080.  
  1081. on mousestilldown
  1082.   set the bottom of me to the mousev+8
  1083.   if the top of me < 259 then set the top of me to 259
  1084.   if the bottom of me > 301 then set the bottom of me to 301
  1085. end mousestilldown
  1086.  
  1087.  
  1088. -- part 131 (button)
  1089. -- low flags: 00
  1090. -- high flags: 0000
  1091. -- rect: left=263 top=270 right=286 bottom=286
  1092. -- title width / last selected line: 0
  1093. -- icon id / first selected line: 1835 / 1835
  1094. -- text alignment: 1
  1095. -- font id: 0
  1096. -- text size: 12
  1097. -- style flags: 0
  1098. -- line height: 16
  1099. -- part name: lefto
  1100. ----- HyperTalk script -----
  1101. on mouseUp
  1102.  
  1103. end mouseUp
  1104.  
  1105.  
  1106. 226,267
  1107.  
  1108. on mousestilldown
  1109.   set the bottom of me to the mousev+8
  1110.   if the top of me < 259 then set the top of me to 259
  1111.   if the bottom of me > 301 then set the bottom of me to 301
  1112. end mousestilldown
  1113.  
  1114.  
  1115. -- part 132 (button)
  1116. -- low flags: 00
  1117. -- high flags: 0000
  1118. -- rect: left=77 top=322 right=340 bottom=145
  1119. -- title width / last selected line: 0
  1120. -- icon id / first selected line: 0 / 0
  1121. -- text alignment: 1
  1122. -- font id: 0
  1123. -- text size: 12
  1124. -- style flags: 0
  1125. -- line height: 16
  1126. -- part name: info
  1127. ----- HyperTalk script -----
  1128.  
  1129. on mousedown
  1130.  
  1131.  
  1132.  
  1133.  
  1134. end mousedown
  1135.  
  1136.  
  1137.  
  1138. -- part contents for background part 61
  1139. ----- text -----
  1140. Recording Studio
  1141.  
  1142. -- part contents for card part 88
  1143. ----- text -----
  1144. The Acoustic Guitar Should be played by picking the strings over the hole
  1145.  
  1146. -- part contents for card part 120
  1147. ----- text -----
  1148. F
  1149.  
  1150. -- part contents for card part 35
  1151. ----- text -----
  1152. play "Acoustic Guitar" b
  1153. play "Frog" F
  1154. play "Dog" F
  1155. play "Dog" D
  1156. play "Dog" F
  1157.